RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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GBLDCL = globai data declarations 16- $35-19 4 * 90: zz: 93 AX-11 Bliss-32 V4.0 


-Sep-1984 RUNOFF .SRCJGBLDCL. ort 


ZTITLE ‘GBLDCL = global data declarations’ 
'<BLF /NOF ORMAT> 


MODULE gbidcl (IDENT = *v04-000' 
LISS32C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 


BEGIN 


'<BLF /FORMAT> 

'<BLF /LOWERCASE_USER> 

' <BLF /UPPERCASE_KEY> 

; <BLF/MA CRO> 

PITITITITILILLILIL TLL LILLE LETT tiTiiiTTt te 


!# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


is ag SOFTWARE IS st oe Aa A an Eee AND MAY BE USED AND corres 
ONLY IN ACCORDANCE W TERM UCH LIC ITH 


® 
® 
® 
® 
® 
n 
® 
® 
i ROV R Al . 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
is TRANSFERRED. * 
& 
i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
* 
® 
® 
® 
® 
® 


t* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee R RARER AREA RAAAA AAA AAA AREA AAA AAA AAA AAA AAAAAAAATAREAAARERE EE 
' 


lee 

! FACILITY: - 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRYOC/CONTENTS Utility 
i ABSTRACT 

Global “data declarations 

ENVIRONMENT: Transportable 

: AUTHOR: JPK 

CREATION DATE: March 1982 

: MODIFIED BY: 

i 003 JPK00007 14-Feb-1983 

: Global edit of all sources for CONTENTS/DSRTOC: 

; - module names are now consistant with file names 
: - copyright dates have been updated 


irae te GBLDCL = global data declarations 1b-500-1984 90: 37:03 AX-11 Bliss-32 V4.0-74 


14-Sep-19 RUNOFF .SRCJGBLOCL.BLI; 
; 8 038 1! - facility names have been updated 
; Fe 23 ! - revision history was updated to be consistant with DSR/DSRPLUS 
3; 6) 061 1! 002 JPK00004 11-Feb-1983 
; ¢ 062 1! Changed the global variable name INDENT to LINE_INDENT in 
; © 065 1! modules CONTENTS, CAPTION, FORMAT and . 
; bee 1! Removed declarations of PDENTS in modules CNTVMS, CONTENTS, 
; 2? BpeE \ and ly replaced with a module wide BIND using the 
: : new name ° 
; Of 0067 1! Changed handling of INDENTS [1]. It no longer represents the 
; eB B20 : sum of the chapter and title indents. 
; 0 $0 0 1 !-- 
Sa 0071 1 
; gf 0072 1! 
ca x 0075 1 ! INCLUDE FILES: 
; ££ 0074 1! 
; 0075 1 
; 76 0076 1 LIBRARY ‘NXPORT:XPORT'; 
2 0077 1 
: 4 | Bo78 : REQUIRE "REQ:PAGEN'; ! Page reference format 
; + 3169 ! REQUIRE ‘REQ:CNTCLI'; ! Comnand Line information block formats 
; & 0389 1! 
; 8 0290 1 ! MACROS: 
>; 84 0291 1! 
; 8 0 38 1! 
; 86 0295 1 ! EQUATED SYMBOLS: 
6 0294 1! 
; & 0295 1! 
5 f44) 1 ! GLOBAL STORAGE: 
>; 90 0297 1! 
; | (91 0298 1 
; 9 0299 1 GLOBAL 
; 9 0300 1 cmdblk : $contents_cmd, ' Command Line information block 
; 94 0301 1 tocoob : $xpo_iob 0), ' I0B for the resulting .RNT file 
3 32 O08 ' ope tee : $xpo_iob (), sce ter gend tes temp ike " soa She 
; chrout, ! Number characters written to outpu 
; 97 0304 1 tmpstr : $str_descriptor (class = dynamic, string = (8 Q)). ! For temporary strings 
3 38 B32 ; txtlen, hength of input tent. ae 
; n, ! n'" from Latest .HL nm comman 
: 100 0307 1 hiTist : VECTOR (100), ' Header level counters . 
: 101 $00 1 hidsp : VECTOR (100), ' Header level display characteristics 
: 198 $40 : ae or, a or eesere syee oege 
: , minor, ! Minor recor e code 
; 104 11 #1 pagen : page_definition, ' Current page mpeher. 
; 105 \§ 1 nxtstc, ' Next SEND 75c “"n’’ value to process 
3 196 0315 1 rno_ex : $str_descriptor (string = ‘EXAMPLES'), ' String constant 
: 10 0314 1 rno_fg : $str_descriptor (string = ‘FIGURES'), ' String constant 
: 108 15 1 rno_th : $str_descriptor (string = *TABLES'), ' String constant 
: 109 1 1 tms_ex : $str_descriptor (string = ‘Examples'), ' String constant 
; 110 17 1 tms_fg : $str_descriptor (string = ‘Figures'), ! String constant 
ae BB \8 1 tms_tb : $str_descriptor (string = ‘Tables'), ! String constant . 
; 6 19 1 prestr : $str_descriptor (class = dynamic, string = (0. )), | Caption prefix 
3; («it 0 1 sfxstr : $str_aescriptor (class = dynamic, string = ( ), ! Caption suffix 
3 (114 1 1 lp. ' CHSPTR along line being built up 
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16 
LD GBLDCL = global data declarations bese =1984 737: AX-11 Bliss-32 V4.0-74 Pa 
von 9 12-8 08-1 3b. 99:35:98 RUNOFF .SRCJGBLOCL.BLI; ™ as 


s 715 § 1 intlin, ' Number of characters needed to represent text 
; 118 1 extlin, ' Number of resulting print gest stone 
;. 33 4 1 Line : VECTOR CCHSALLOCATION (10000)], ! Buffer in which Line is being built up. 
; 118 _ lenpag, ! Number of characters in the converted page number. 
3 1% § 1 txtpag : VECTOR CCHSALLOCATION (50)], ' The text (lots of room) 
Pip 1 pal ‘ ' A CHSPTR yee pointer) 
s te 8 1 ensct, ' Number of characters in the converted section number 
‘9 ¢ 9 1 txtsct : VECTOR CCHSALLOCATION (150)], ' The sext (lots of room) 
, 4 ss ptrsct, ! A CHSPTR (working pointer) 
; 124 8 1 1 rmargin, ! Used by ENDWRD for controlling filling Lines. 
s Yeo § 1 wrap, ' Wrap Cone lines around to here. 
; 13f 8 ? ! Line_indent; ! Assume this standard indentation before the text. 
: 128 0335 1 END ! End of module 
: 129 b332 0 ELUDOM 
- TITLE Nye, — = global data declarations 
-IDENT \V04=-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 
53 45 4€C 56 4D 41 58 45 00000 P.AAA: .ASCII \EXAMPLES\ : 
53 45 2 55 47 49 466 00008 P.AAB: .ASCII \FIGURES\ : 
53 4 4C 42 41 54 OQOOOF P.AAC: .ASCII \TABLES\ ; 
73 65 6C 70 69 61 78 45 00015 P.AAD: .ASCII \Examples\ ; 
73 65 72 75 67 69 46 QCO1D P.AAE: .ASCII \Figures\ j 
73 65 6C 62 61 54 00024 P.AAF: .ASCII \Tables\ F 
-PSECT $GLOBALS$,NOEXE,2 
00000 CMDBLK::.BLKB 92 
0005C TOCOOB::.BLKB 44 
00150 STCIOB::.BLKB 44 
Boe CHROUT::.BLKB 4 
0000 0248 TMPSTR::.WORD 0 PH 
02 OF O024A -BYTE 14, 2 3 
00000000 00 f LONG 0 3 
0 2 TXTLEN::.BLKB 4 
00254 HL_N:: .BLKB 4 
00258 HLCIST::.B8LKB 400 
00 5 HLDSP:: .BLKB 400 
0578 MAJOR:: .BLKB 4 
pare MINOR:: .BLKB 4 
| PAGEN:: .BLKB 16 
0590 NXTSTC::.BLKB 4 
0008 00594 RNO_EX::.WORD 8 3 
4 8 bece «BYTE 14, 1 3 
00 008 . 59 eADDRESS P.AAA 3 
0 r+! RNO_FG::.WORD 7 i 
4 ‘ 5 ‘ -—BYTE 14, 1 : 
00 008 > QO5SA ADDRESS P.AAB 3 
006 00544 RNO_TB::.WORD 6 ; 
4 i BYTE 4, 1 ; 
00 090 A -ADDRESS P.AAC 3 
09 AC TMS_EX::.WORD 8 ; 
01 OF OOSAE BYTE 14, 1 j 


GBLDCL = global data declarations 


06-000 


PSECT SUMMARY 


: Name Bytes 

: $GLOBALS$ 11736 NOVEC, WRT, RD 
; SPLITS 42 NOVeEC,NOWRT, RD 
3 Library Statistics 

Ee J Beep aie a teed aay or sca ymbo 
$ File Total Loaded 
: _$255$DUA28:CSYSLIBIXPORT.L32;1 590 118 


COMMAND QUALIFIERS 


132-1984 99:57:05 
0 


AX-11 Bliss-32 yee 
RUNOFF .SRCJGBLDCL.BLI; 


8 ADDRESS P.AAD 
B4 TMS_FG::.WORD 7 
Hh -—BYTE 14, 1 
B eADDRESS P.AAE 
SBC TMS_TB::-WORD 
rd BYTE 4, 1 
5¢ ADDRESS P.AAF 
ete PRESTR::.WORD 9 
ce BYTE 4, 2 
5C LONG 8 
SCC SFXSTR::.WORD 
ack -—BYTE 14, 2 
D ~LONG 0 
0504 LP:: -BLKB 4 
0508 INTLIN::.BLK 4 
O50C EXTLIN::.BLKB 4 
OSED LINE:: .BLKB 10000 
CFO LENPAG::.BLKB 4 
CF4 TXTPAG::.BLKB 52 
02028 PTRPAG::.BLKB 4 
02D f LENSCT::.8LK 4 
02030 TXTSCT::.BLK 152 
02D0C8 PTRSCT::.BLK 4 
O2DCC RMARGIN:: 
-BLK3 4 
O2DD0 WRAP:: .BLKB 4 
02DD4 LINE SODENT 5 . 
Attributes 
»NOEXE,NOSHR, LCL, REL, paket Teg b ott 
»NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


20 


Pages Processing 
Mapped Time 
252 00:00.1 


3 


0 8 e + 11778 data bytes 
Elapsed Time: 


s : 0.4 
; Lines/CPU Min: 4 : 

; powenees ea) 986 

; pone | Used: 85 pages 

; Compilation Complete 


GBLDCL = global data declarations 


1b-Sep-1 
14-Sep-1 


1986 93:56:38 


AX-11 Bliss-32 V4.0-74 
RUNOFF .SRCJGBLDCL.BLI; 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:GBLDCL/OBJ=O0BJ$:GBLDCL MSRC$:GBLDCL/UPDATE=(ENH$:GBLDCL) 


Page 


5 
(1) 


34] SH BT13A- SE ENT CORPOR 
VAX/VMS V4.0 N 


D PROPRIE 


